﻿Public Class frm_main

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 60 * 1000
        Timer1.Enabled = True
        Timer1.Start()

        lbl_hour.Text = Format(Now, "dd/MM/yyyy HH:mm")
        lbl_hour.Left = (Me.Width - lbl_hour.Width) / 2
    End Sub


    Private Sub WorkingHourToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WorkingHourToolStripMenuItem.Click
        frm_workHour.ShowDialog()
    End Sub

    Private Sub TaskDurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TaskDurationToolStripMenuItem.Click
        frm_Duration.ShowDialog()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbl_hour.Text = Format(Now, "dd/MM/yyyy HH:mm")
        lbl_hour.Left = (Me.Width - lbl_hour.Width) / 2
    End Sub

    Private Sub ScheduleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ScheduleToolStripMenuItem.Click
        frm_schedule.ShowDialog()
    End Sub
End Class
